home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / SINE-PUZ.dxr / 00075.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  770 b   |  35 lines
  1. on exitFrame
  2.   global selection, S6, S7, S8, S9, S10, S11
  3.   set L1 to ["AB", "AC", "AD", "BC", "BD", "CD"]
  4.   set randomSeed to the ticks
  5.   set n to random(6)
  6.   set S6 to getAt(L1, n)
  7.   deleteAt(L1, n)
  8.   set n to random(5)
  9.   set S7 to getAt(L1, n)
  10.   deleteAt(L1, n)
  11.   set n to random(4)
  12.   set S8 to getAt(L1, n)
  13.   deleteAt(L1, n)
  14.   set n to random(3)
  15.   set S9 to getAt(L1, n)
  16.   deleteAt(L1, n)
  17.   set n to random(2)
  18.   set S10 to getAt(L1, n)
  19.   deleteAt(L1, n)
  20.   set S11 to getAt(L1, 1)
  21.   deleteAt(L1, 1)
  22.   puppetSprite(15, 1)
  23.   puppetSprite(16, 1)
  24.   puppetSprite(17, 1)
  25.   puppetSprite(18, 1)
  26.   puppetSprite(19, 1)
  27.   puppetSprite(20, 1)
  28.   puppetSprite(21, 1)
  29.   puppetSprite(22, 1)
  30.   puppetSprite(23, 1)
  31.   puppetSprite(24, 1)
  32.   puppetSprite(25, 1)
  33.   puppetSprite(26, 1)
  34. end
  35.